1000 PRINTCHR$(147):POKE53280,0:POKE53281,0:POKE646,1:PRINTSPC(12)"[129]INKWELL SYSTEMS":PRINTSPC(12)"P R E S E N T S":PRINTSPC(1)"A DEMONSTRATION OF GRAPHICS AND SOUND":IFB=0THENB=1:LOAD"CARS* ",8,1
1040 IFT=0THENT=1:LOAD"DDMOCKPAINT",8,1
1041 GOSUB1069:SYS32923:FORI=1TO10000:NEXT:GOSUB1110:GOSUB20000:GOSUB1069:GOTO1150
1069 POKE53280,12:POKE53265,59:POKE53272,120:POKE56576,PEEK(56576)AND254:RETURN
1109 POKE53280,0
1110 POKE53265,27:POKE53272,21:POKE56576,PEEK(56576)OR1:RETURN
1150 ::GOSUB1069:FORI=1TO101000:NEXT:POKE33847,4:GOSUB1109:FORI=1TO10000:NEXT:PRINT"[147]":GOTO1041
20000 POKE53280,0:POKE53281,0:PRINT"[147]":PRINT"":A$="       [152]YOU MIGHT THINK ITS MACPAINT":FORI=1TOLEN(A$):FORZZ=1TO50:NEXTZZ:PRINTMID$(A$,I,1);:NEXTI:PRINT"":A$="[152]BUT IT'S NOT.  ITS [154]MOCKPAINT":A$="       "+A$:FORI=1TOLEN(A$)
20100 PRINTMID$(A$,LEN(A$)-I+1,I);"[145]":FORZZ=1TO27:NEXTZZ:NEXTI:PRINT"[159]":A$="      [158]- A HIGH RESOLUTION DRAWING":FORI=1TOLEN(A$):FORZZ=1TO50:NEXTZZ:PRINTMID$(A$,I,1);:NEXTI:PRINT:A$="        [158]CREATED WITH FLEXIDRAW.":FORI=1TOLEN(A$)
20163 FORZZ=1TO50:NEXTZZ:PRINTMID$(A$,I,1);:NEXTI:PRINT"":A$=" [129]FLEXIDRAW[152] IS A LIGHT PEN":A$="       "+A$:FORI=1TOLEN(A$):PRINTMID$(A$,LEN(A$)-I+1,I);"[145]":FORZZ=1TO27:NEXTZZ:NEXTI:PRINT:A$="     DRAWING PROGRAM.      ":A$="       "+A$
20212 FORI=1TOLEN(A$):PRINTMID$(A$,LEN(A$)-I+1,I);"[145]":FORZZ=1TO27:NEXTZZ:NEXTI:PRINT"":A$=" FROM [129]INKWELL SYSTEMS."
20219 A=LEN(A$):IFA/2<>INT(A/2)THENA$=" "+A$:GOTO20219
20220 FORI=1TOA/2:PRINTTAB(19-I);LEFT$(A$,I);RIGHT$(A$,I):PRINT"[145]";:FORZZ=1TO50:NEXTZZ:NEXTI:PRINT"":A$="[129]FLEXIDRAW GIVES THE COMMODORE 64":A$="    "+A$:FORI=1TOLEN(A$):PRINTMID$(A$,LEN(A$)-I+1,I);"[145]":FORZZ=1TO27:NEXTZZ:NEXTI:PRINT:A$="THE POWERS OF A MACINTOSH.[146]"
20372 A$="       "+A$:FORI=1TOLEN(A$):PRINTMID$(A$,LEN(A$)-I+1,I);"[145]":FORZZ=1TO27:NEXTZZ:NEXTI:PRINT"":A$="  COMPLIMENTS OF [158]PETER AND PAUL HUGHES":FORI=1TOLEN(A$):M=ASC(MID$(A$,I,1)):IFM<65ORM>90THENPRINTCHR$(M);:NEXTI
20430 FORJ=65TOM:FORH=1TO5:NEXTH:PRINTCHR$(J);"[157]";:NEXTJ:PRINT"";:NEXTI:FORU=1TO5000:NEXTU:RETURN